#!/usr/local/bin/perl
use warnings;
use strict;
my %opt = ('h','', 'v','', 'f','', 'i','', 's','' );

use vars qw/ %opt /;
use Getopt::Std;

$optString ='vhf:';
getopts( "$optString",\%opt ) or basicUsage();
basicUsage() if $opt(h);


sub basicUsage()
    {
        print STDERR << "EOF";

    This program does...

    usage: $0 [-isvh]

     -h        : this (help) message
     -v        : verbose output
     -i        : path to mgFargo.ini
     -s        : path to support files like act_std.eng

    example: $0 -i <path to mgFargo.ini> -s <path to Support files>  appExpFile

EOF
        exit;
    }

